object frmPrincipal: TfrmPrincipal
  Left = 0
  Top = 0
  BorderIcons = []
  Caption = 'frmPrincipal'
  ClientHeight = 149
  ClientWidth = 784
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmPrincipal
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object statPrincipal: TStatusBar
    Left = 0
    Top = 130
    Width = 784
    Height = 19
    Panels = <
      item
        Text = 'Usu'#225'rio Logado'
        Width = 200
      end
      item
        Alignment = taCenter
        Text = 'Data e Hora'
        Width = 150
      end
      item
        Text = 'Internet ?'
        Width = 100
      end
      item
        Text = 'Impressora Padr'#227'o'
        Width = 200
      end
      item
        Text = 'Vers'#227'o do Sistema 1.0.1'
        Width = 50
      end>
  end
  object pnlLogo: TPanel
    Left = 0
    Top = 0
    Width = 150
    Height = 130
    Align = alLeft
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 1
    object imgLogo: TImage
      Left = 0
      Top = 0
      Width = 150
      Height = 130
      Align = alClient
      Center = True
      Transparent = True
      ExplicitLeft = 2
      ExplicitTop = 2
      ExplicitWidth = 145
      ExplicitHeight = 105
    end
  end
  object pnlCentro: TPanel
    Left = 150
    Top = 0
    Width = 634
    Height = 130
    Align = alClient
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 2
    object imgCentro: TImage
      Left = 0
      Top = 0
      Width = 634
      Height = 130
      Align = alClient
      AutoSize = True
      Center = True
      Stretch = True
      Transparent = True
      ExplicitTop = -8
    end
    object lblCotacaoDolar: TLabel
      Left = 56
      Top = 72
      Width = 35
      Height = 13
      AutoSize = False
      Caption = 'Dolar: '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblCotacaoEuro: TLabel
      Left = 56
      Top = 88
      Width = 35
      Height = 13
      AutoSize = False
      Caption = 'Euro: '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblCotacaoDolarValor: TLabel
      Left = 88
      Top = 72
      Width = 75
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0.0000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblCotacaoEuroValor: TLabel
      Left = 88
      Top = 88
      Width = 75
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0.0000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblCotacao: TLabel
      Left = 56
      Top = 56
      Width = 148
      Height = 16
      Caption = 'COTA'#199#213'ES (on real time)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object btnSAF0201: TSpeedButton
      Left = 372
      Top = 47
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0201
      Caption = 'Contratos'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object btnSAF0102: TSpeedButton
      Left = 296
      Top = 47
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0102
      Caption = 'Clientes'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object btnSAF0101: TSpeedButton
      Left = 296
      Top = 24
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0101
      Caption = 'Empresas'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object btnSAF0103: TSpeedButton
      Left = 296
      Top = 72
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0103
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object btnSAF0104: TSpeedButton
      Left = 372
      Top = 23
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0104
      Caption = 'Porto'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object btnSAF0202: TSpeedButton
      Left = 372
      Top = 72
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0202
      Caption = 'Produ'#231#227'o'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object lblWebSite: TLabel
      Left = 56
      Top = 8
      Width = 68
      Height = 13
      Cursor = crHandPoint
      Caption = 'SAF Web Site '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lblWebSiteClick
    end
    object lblWebMail: TLabel
      Left = 139
      Top = 8
      Width = 65
      Height = 13
      Cursor = crHandPoint
      Caption = 'SAF Web Mail'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lblWebMailClick
    end
    object lblAtualizaWOS: TLabel
      Left = 56
      Top = 32
      Width = 113
      Height = 13
      Cursor = crHandPoint
      Caption = 'Atualiza M'#243'dulos Online'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lblAtualizaWOSClick
    end
    object btnSAF0301: TSpeedButton
      Left = 448
      Top = 23
      Width = 100
      Height = 25
      Cursor = crHandPoint
      Action = actSAF0301
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
  end
  object mmPrincipal: TMainMenu
    Left = 40
    Top = 16
    object miChaveTabelas: TMenuItem
      Caption = 'Tabelas'
      object miSAF0010: TMenuItem
        Action = actSAF0010
      end
      object miSAF0011: TMenuItem
        Action = actSAF0011
      end
      object miSAF0015: TMenuItem
        Action = actSAF0015
      end
      object miSAF0016: TMenuItem
        Action = actSAF0016
      end
      object miSAF0017: TMenuItem
        Action = actSAF0017
      end
      object miSAF0019: TMenuItem
        Action = actSAF0019
      end
      object miSAF0032: TMenuItem
        Action = actSAF0032
      end
      object miSAF0029: TMenuItem
        Action = actSAF0029
      end
      object miSAF0026: TMenuItem
        Action = actSAF0026
      end
    end
    object miChaveCadastro: TMenuItem
      Caption = 'Cadastro'
      object miSAF0101: TMenuItem
        Action = actSAF0101
      end
      object miSAF0102: TMenuItem
        Action = actSAF0102
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miSAF0103: TMenuItem
        Action = actSAF0103
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miSAF0104: TMenuItem
        Action = actSAF0104
        Caption = 'Porto'
      end
    end
    object miChaveContrato: TMenuItem
      Caption = 'Contrato'
      object miSAF0028: TMenuItem
        Action = actSAF0028
        Hint = 'Cadastro de Tipo de Contrato'
      end
      object miSAF0105: TMenuItem
        Action = actSAF0105
      end
      object miSAF0106: TMenuItem
        Action = actSAF0106
      end
      object miSAF0025: TMenuItem
        Action = actSAF0025
        Caption = 'Forma de Pagamento da Comiss'#227'o'
      end
      object miSAF0201: TMenuItem
        Action = actSAF0201
      end
      object miSAF0202: TMenuItem
        Action = actSAF0202
      end
    end
    object miChaveCompras: TMenuItem
      Caption = 'Compras'
      object miSAF0301: TMenuItem
        Action = actSAF0301
      end
    end
    object miChaveUsuario: TMenuItem
      Caption = 'Usu'#225'rio'
      object miUsuarioCadastro: TMenuItem
        Action = actUsuarioCadastro
      end
      object miUsuarioTrocarSenha: TMenuItem
        Action = actUsuarioTrocarSenha
      end
      object miUsuarioLogoff: TMenuItem
        Action = actUsuarioLogoff
      end
    end
    object miChaveSistema: TMenuItem
      Caption = 'Sistema'
      object miSistemaSair: TMenuItem
        Action = actSistemaSair
      end
    end
  end
  object actCadastro: TActionList
    Left = 40
    Top = 48
    object actSAF0101: TAction
      Category = 'Cadastro'
      Caption = 'Empresa'
      Hint = 'Cadastro de Empresa'
      OnExecute = actSAF0101Execute
    end
    object actSAF0102: TAction
      Category = 'Cadastro'
      Caption = 'Cliente'
      Hint = 'Cadastro de Cliente'
      OnExecute = actSAF0102Execute
    end
    object actSAF0103: TAction
      Category = 'Cadastro'
      Caption = 'Produto'
      Hint = 'Cadastro de Produto'
      OnExecute = actSAF0103Execute
    end
    object actSAF0104: TAction
      Category = 'Cadastro'
      Caption = 'Cadastro de Porto'
      Hint = 'Cadastro de Porto'
      OnExecute = actSAF0104Execute
    end
  end
  object actSistema: TActionList
    Left = 136
    Top = 48
    object actSistemaSair: TAction
      Category = 'Sistema'
      Caption = 'Sair'
      Hint = 'Sair do Sistema'
      OnExecute = actSistemaSairExecute
    end
  end
  object ucUsuario: TUserControl
    AutoStart = True
    ApplicationID = 'SAF'
    ControlRight.MainMenu = mmPrincipal
    User.Action = actUsuarioCadastro
    User.UsePrivilegedField = True
    UserPasswordChange.Action = actUsuarioTrocarSenha
    UserPasswordChange.ForcePassword = True
    UserPasswordChange.MinPasswordLength = 4
    UsersLogoff.Action = actUsuarioLogoff
    LogControl.TableLog = 'SAF9500'
    Language = ucPortuguesBr
    EncryptKey = 0
    NotAllowedItems.MenuVisible = False
    NotAllowedItems.ActionVisible = False
    Login.AutoLogin.Active = True
    Login.AutoLogin.User = 'SUPERVISOR'
    Login.AutoLogin.Password = 'SISTEMA'
    Login.InitialLogin.User = 'SUPERVISOR'
    Login.InitialLogin.Email = 'saft.brazil@gmail.com'
    Login.InitialLogin.Password = 'SISTEMA'
    Login.MaxLoginAttempts = 3
    ExtraRights = <>
    TableUsers.FieldUserID = 'IDUSUARIO'
    TableUsers.FieldUserName = 'IDUSUARIO_NOME'
    TableUsers.FieldLogin = 'LOGIN'
    TableUsers.FieldPassword = 'SENHA'
    TableUsers.FieldEmail = 'EMAIL'
    TableUsers.FieldPrivileged = 'PRIVILEGIO'
    TableUsers.FieldTypeRec = 'TIPO'
    TableUsers.FieldProfile = 'PERFIL'
    TableUsers.FieldKey = 'CHAVE'
    TableUsers.FieldDateExpired = 'EXPIRA'
    TableUsers.FieldUserExpired = 'IDUSUARIO_EXPIRA'
    TableUsers.FieldUserDaysSun = 'IDUSUARIO_DIAS'
    TableUsers.FieldUserInative = 'IDUSUARIO_INATIVO'
    TableUsers.TableName = 'SAF0001'
    TableRights.FieldUserID = 'IDUSUARIO'
    TableRights.FieldModule = 'MODULO'
    TableRights.FieldComponentName = 'COMPONENTE'
    TableRights.FieldFormName = 'FORMULARIO'
    TableRights.FieldKey = 'CHAVE'
    TableRights.TableName = 'SAF0002'
    TableUsersLogged.FieldLogonID = 'LOGON'
    TableUsersLogged.FieldUserID = 'IDUSUARIO'
    TableUsersLogged.FieldApplicationID = 'APLICACAO'
    TableUsersLogged.FieldMachineName = 'MAQUINA'
    TableUsersLogged.FieldData = 'DATA'
    TableUsersLogged.TableName = 'SAF0003'
    DataConnector = ucConADOServer
    OnLoginSucess = ucUsuarioLoginSucess
    Left = 40
    Top = 80
  end
  object actUsuario: TActionList
    Left = 104
    Top = 48
    object actUsuarioCadastro: TAction
      Category = 'Usuario'
      Caption = 'Cadastro'
      Hint = 'Cadastro de Usu'#225'rio'
    end
    object actUsuarioTrocarSenha: TAction
      Category = 'Usuario'
      Caption = 'Trocar Senha'
      Hint = 'Trocar Senha do Usu'#225'rio'
    end
    object actUsuarioLogoff: TAction
      Category = 'Usuario'
      Caption = 'Logoff'
      Hint = 'Logoff do Usu'#225'rio'
    end
  end
  object ucConADOServer: TUCADOConn
    Connection = DMDados.conADOServer
    Left = 104
    Top = 80
  end
  object ucEmail: TMailUserControl
    AuthType = alsmtpClientAuthPlain
    ServidorSMTP = 'smtp.gmail.com'
    Usuario = 'saft.brazil@gmail.com'
    Senha = 'foodfood'
    Porta = 465
    NomeRemetente = 'saft.brazil@gmail.com'
    EmailRemetente = 'saft.brazil@gmail.com'
    AdicionaUsuario.Ativo = True
    AdicionaUsuario.Titulo = 'Inclus'#227'o de usu'#225'rio'
    AdicionaUsuario.Mensagem.Strings = (
      'Inclus'#227'o de usu'#225'rio'
      ''
      'Nome...: :nome'
      'Login..: :login'
      'Senha..: :senha'
      'Email..: :email'
      'Perfil.: :perfil')
    AlteraUsuario.Ativo = True
    AlteraUsuario.Titulo = 'Altera'#231#227'o de usu'#225'rio'
    AlteraUsuario.Mensagem.Strings = (
      'Altera'#231#227'o de usu'#225'rio'
      ''
      'Nome...: :nome'
      'Login..: :login'
      'Senha..: :senha'
      'Email..: :email'
      'Perfil.: :perfil')
    EsqueceuSenha.Ativo = True
    EsqueceuSenha.Titulo = 'Lembrete de senha'
    EsqueceuSenha.Mensagem.Strings = (
      'Esquecia a senha'
      ''
      'Nome...: :nome'
      'Login..: :login'
      'Senha..: :senha'
      'Email..: :email'
      'Perfil.: :perfil')
    EsqueceuSenha.LabelLoginForm = 'Esqueci a senha'
    EsqueceuSenha.MensagemEmailEnviado = 'A senha foi enviada para o seu email.'
    SenhaForcada.Ativo = True
    SenhaForcada.Titulo = 'Troca de senha for'#231'ada'
    SenhaForcada.Mensagem.Strings = (
      'Troca de senha for'#231'ada'
      ''
      'Nome...: :nome'
      'Login..: :login'
      'Senha..: :senha'
      'Email..: :email'
      'Perfil.: :perfil')
    SenhaTrocada.Ativo = True
    SenhaTrocada.Titulo = 'Altera'#231#227'o de senha'
    SenhaTrocada.Mensagem.Strings = (
      'Altera'#231#227'o de senha'
      ''
      'Nome...: :nome'
      'Login..: :login'
      'Senha..: :senha'
      'Email..: :email'
      'Perfil.: :perfil')
    Left = 72
    Top = 80
  end
  object tmrPrincipal: TTimer
    OnTimer = tmrPrincipalTimer
    Left = 72
    Top = 16
  end
  object tmrInternet: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = tmrInternetTimer
    Left = 104
    Top = 16
  end
  object actProcesso: TActionList
    Left = 72
    Top = 48
    object actSAF0028: TAction
      Category = 'Processo'
      Caption = 'Tipo de Contrato'
      Hint = 'Cadastro do Tipo de Contrato'
      OnExecute = actSAF0028Execute
    end
    object actSAF0105: TAction
      Category = 'Processo'
      Caption = 'Condi'#231#227'o de Venda'
      Hint = 'Cadastro de Condi'#231#227'o de Venda'
      OnExecute = actSAF0105Execute
    end
    object actSAF0106: TAction
      Category = 'Processo'
      Caption = 'Condi'#231#227'o de Pagamento'
      Hint = 'Cadastro de Condi'#231#227'o de Pagamento'
      OnExecute = actSAF0106Execute
    end
    object actSAF0201: TAction
      Category = 'Processo'
      Caption = 'Controle de Contrato'
      Hint = 'Controle de Contrato'
      OnExecute = actSAF0201Execute
    end
    object actSAF0202: TAction
      Category = 'Processo'
      Caption = 'Controle de Produ'#231#227'o'
      Hint = 'Controle de Produ'#231#227'o'
      OnExecute = actSAF0202Execute
    end
  end
  object actTabelas: TActionList
    Left = 8
    Top = 48
    object actSAF0010: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo'
      Hint = 'Cadastro de Tipo'
      OnExecute = actSAF0010Execute
    end
    object actSAF0011: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Pa'#237's'
      Hint = 'Cadastro de Pa'#237's'
      OnExecute = actSAF0011Execute
    end
    object actSAF0015: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Logradouro'
      Hint = 'Cadastro de Tipo de Logradouro'
      OnExecute = actSAF0015Execute
    end
    object actSAF0016: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Endere'#231'o'
      Hint = 'Cadastro de Tipo de Endere'#231'o'
      OnExecute = actSAF0016Execute
    end
    object actSAF0017: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Telefone'
      Hint = 'Cadastro de Tipo de Telefone'
      OnExecute = actSAF0017Execute
    end
    object actSAF0019: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Email'
      Hint = 'Cadastro de Tipo de Email'
      OnExecute = actSAF0019Execute
    end
    object actSAF0029: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Comiss'#227'o'
      Hint = 'Cadastro de Tipo de Comiss'#227'o'
      OnExecute = actSAF0029Execute
    end
    object actSAF0032: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de I.M.'
      Hint = 'Cadastro de Tipo de I.M.'
      OnExecute = actSAF0032Execute
    end
    object actSAF0025: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Forma de Pagamento da Comiss'#227'o'
      Hint = 'Cadastro de Forma de Pagamento da Comiss'#227'o'
      OnExecute = actSAF0025Execute
    end
    object actSAF0026: TAction
      Category = 'Tabelas'
      Caption = 'Cadastro de Tipo de Status da Produ'#231#227'o'
      Hint = 'Cadastro de Tipo de Status da Produ'#231#227'o'
      OnExecute = actSAF0026Execute
    end
  end
  object actlstCompras: TActionList
    Left = 136
    Top = 48
    object actSAF0301: TAction
      Category = 'Compras'
      Caption = 'Ordem de Compra'
      Hint = 'Ordem de Compra'
      OnExecute = actSAF0301Execute
    end
  end
end
